home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IOInterface / windowOpen.dcl < prev    next >
Encoding:
Modula Definition  |  1995-03-08  |  364 b   |  15 lines  |  [TEXT/3PRM]
  1. definition module windowOpen;
  2.  
  3.  
  4. //    Version 0.8 to 1.0
  5.  
  6.  
  7. import    windowInternal;
  8.  
  9.  
  10. OpenWindow    :: !(DeviceSystem s (IOState s)) !(IOState s) -> IOState s;
  11.  
  12. Open_windows:: !WindowPtr ![WindowDef s (IOState s)] ![WindowHandle s] !Toolbox
  13.             -> (![WindowHandle s], !Toolbox);
  14. Open_window    :: !(WindowDef s (IOState s)) !WindowPtr !Toolbox -> (!WindowHandle s, !Toolbox);
  15.